home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / mac / SHARED.DIR / 01956_Script_Begin Life-Timeline < prev    next >
Text File  |  1995-09-13  |  3KB  |  154 lines
  1. global gHotSpotStatus, gOpenHouse1, ¼
  2.       gOpenHouse2,gPreviousYN,gSlider,gLastMarker,¼
  3.       gTempLast,gNewMarker,gBeginTrans
  4.  
  5. on BYLSetUp
  6.   set gSlider = birth (script "aHozSlider",2,43,274,¼
  7.             382,"movePanOrama",2,"HandCursor")
  8.   go label("BYL1") + 44
  9. end
  10.  
  11. on slideRight 
  12.   repeat while the mouseDown
  13.     stepRight(gSlider)
  14.     movePanOrama
  15.   end repeat
  16. end
  17.  
  18. on slideLeft
  19.   repeat while the mouseDown
  20.     stepLeft(gSlider)
  21.     movePanOrama
  22.   end repeat
  23. end
  24.  
  25. on doSlider
  26.   SliderBar(gSlider)
  27. end
  28.  
  29. on movePanOrama 
  30.   set perCent = getPercentH(gSlider)
  31.   set theFrame = (89*perCent)/100 + (label("BYL1"))
  32.   if theFrame < (label("BYL1")) then
  33.     set theFrame = (label("BYL1"))
  34.   else
  35.     if theFrame > (label("BYL89")) then
  36.       set theFrame = (label("BYL89"))
  37.     end if
  38.   end if
  39.   go theFrame 
  40. end
  41.  
  42. on moveVTL 
  43.   set perCent = getPercentH(gSlider)
  44.   set theFrame = (16*perCent)/100 + (label("Time1"))
  45.   if theFrame < (label("Time1")) then
  46.     set theFrame = (label("Time1"))
  47.   else
  48.     if theFrame > (label("Time17")) then
  49.       set theFrame = (label("Time17"))
  50.     end if
  51.   end if
  52.   go theFrame 
  53. end
  54.  
  55.  
  56. on slideRightVTL 
  57.   stepRight(gSlider)
  58.   moveVTL
  59. end
  60.  
  61.  
  62. on slideLeftVTL
  63.   stepLeft(gSlider)
  64.   moveVTL
  65. end
  66.  
  67.  
  68. on killslider
  69.   hidecontrol (gSlider)
  70.   set gSlider = 0
  71. end
  72.  
  73. on EBeginLifeFunction
  74.   if gHotSpotStatus = 0 then
  75.     if rollover(41) then handcursor
  76.     else
  77.       if rollover(40) then handcursor
  78.       else
  79.         if rollover(43) then handcursor
  80.         else 
  81.           if rollover(28) then ArrowCursor
  82.           else
  83.             if rollover(39) then ArrowCursor
  84.             else
  85.               EGlobalRollover
  86.               ESliderRollovers
  87.             end if
  88.           end if
  89.         end if
  90.       end if
  91.     end if
  92.   else
  93.     EGlobalRollover
  94.     if rollover(26) Then 
  95.       HandCursor
  96.     else
  97.       ArrowCursor
  98.     end if
  99.   end if
  100. end
  101.  
  102. on VBeginLifeFunction
  103.   if gHotSpotStatus = 0 then
  104.     if rollover(41) then handcursor
  105.     else
  106.       if rollover(40) then handcursor
  107.       else
  108.         if rollover(43) then handcursor
  109.         else 
  110.           if rollover(28) then ArrowCursor
  111.           else
  112.             VGlobalRollover
  113.             VSliderRollovers
  114.           end if
  115.         end if
  116.       end if
  117.     end if
  118.   else
  119.     VGlobalRollover
  120.     if rollover(26) Then 
  121.       HandCursor
  122.     else
  123.       ArrowCursor
  124.     end if
  125.   end if
  126. end
  127.  
  128. on ABeginLifeFunction
  129.   if gHotSpotStatus = 0 then
  130.     if rollover(41) then handcursor
  131.     else
  132.       if rollover(42) then handcursor
  133.       else
  134.         if rollover(43) then handcursor
  135.         else 
  136.           if rollover(27) then ArrowCursor
  137.           else
  138.             AGlobalRollover
  139.             ASliderRollovers
  140.           end if
  141.         end if
  142.       end if
  143.     end if
  144.   else
  145.     AGlobalRollover
  146.     if rollover(26) Then 
  147.       HandCursor
  148.     else
  149.       ArrowCursor
  150.     end if
  151.   end if
  152. end
  153.  
  154.